home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / Caract鑽e.AmiCAD < prev    next >
Text File  |  2000-11-04  |  2KB  |  40 lines
  1. /* Écriture d'un caractère spécial */
  2. /* Version 1.00: R.Florac */
  3. /* Version 1.01: 4 Novembre 2000, localisation anglais/français */
  4. /* $VER: Caractère.AmiCAD 1.01 (R.Florac 4/11/00) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'LANGUAGE'
  12. if result=1 then do
  13.     fr=1
  14.     'L__="Caractère à écrire"+CHR(10)+"Amplificateur"+CHR(10)+"Collecteur ouvert"+CHR(10)+"Supérieur ou égal"+CHR(10)+"Flèche vers la droite"+CHR(10)+"Postponed"+CHR(10)+"Front montant"+CHR(10)+"Hystérésis"+CHR(10)+"Trois états"+CHR(10)+"Générateur"'
  15.     'L__=L__+CHR(10)+"Flèche vers la gauche"+CHR(10)+"Signal analogique"+CHR(10)+"Signe ohm"+CHR(10)+"Lettre alpha"+CHR(10)+"Lettre tau"+CHR(10)+"Lettre teta"+CHR(10)+"Pull up"+CHR(10)+"Lettre Sigma"'
  16. end
  17. else do
  18.     fr=0
  19.     'L__="Char to write"+CHR(10)+"Amplifier"+CHR(10)+"Open Collector"+CHR(10)+"Greater or equal"+CHR(10)+"Right arrow"+CHR(10)+"Postponed"+CHR(10)+"Rising edge"+CHR(10)+"Hysteresis"+CHR(10)+"Three state"+CHR(10)+"Generator"'
  20.     'L__=L__+CHR(10)+"Left arrow"+CHR(10)+"Analog signal"+CHR(10)+"Sign ohm"+CHR(10)+"Alpha letter"+CHR(10)+"Tau letter"+CHR(10)+"Teta letter"+CHR(10)+"Pull up"+CHR(10)+"Sigma letter"'
  21. end
  22. 'SELECT(L__)'
  23. c=result
  24. if c <=0 then exit
  25. 'WRITE(CHR('c+127'),0,0)'
  26.  
  27. exit
  28.  
  29. /* Traitement des erreurs, interruption du programme */
  30. syntax:
  31. erreur=RC
  32. if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  33. else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  34. exit
  35.  
  36. error:
  37. if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
  38. else 'MESSAGE("Error in line 'SIGL'")'
  39. exit
  40.